PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/MacHelp/MacHelp 1/MacHelp Hard Disk/background_2653.txt

Text File | 1988-02-15 | 4.6 KB | 232 lines

-- background: 2653 from stack: in
-- bmap block id: 4643
-- flags: 4000
-- background id: 0
-- name:


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=280 top=247 right=274 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=247 right=274 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=448 top=247 right=272 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=393 top=250 right=272 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  flash 2
  doMenu "New Card"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=196 top=248 right=270 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to stack "Help"
end mouseUp




-- part 12 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=98 top=91 right=242 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description


-- part 26 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=86 top=244 right=277 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go to stack "Apple Sac Home "
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=245 right=279 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=386 top=62 right=89 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show menuBar
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=316 top=246 right=274 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  Ask "Find what item ?"
  put it into Finding
  if it is empty then exit mouseup
  put false into Q
  repeat until Q
    find Finding
    repeat with x= 1 to 600
    end repeat
    answer "This one ?" with "Yes" or "No"
    if it is "Yes" then put true into Q
  end repeat
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=91 top=65 right=83 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Compact Stack
----- HyperTalk script -----
on mouseUp
  put the size of this stack into var
  ANSWER "This stack takes this much space" with var
  put the freesize of this stack into var
  ANSWER "You are wasting this much space" with var
  if var > 0 then
    answer "Would you like to compact this stack?" with No or Yes
    if it is "yes"
    then domenu "compact stack"
  end if
end mouseUp